function [Val,Vbar]=Fun_Vbar(PP,SS,T,Profit,TAU,ir_dom,ir_ext,w_N,w_H,PortfolioInfo,UCoefp,State,Flag_SS)

if nargin<=12
    Flag_SS     =   0;
end
[Val_V,V]           =   Fun_V(PP,SS,T,Profit,TAU,ir_dom,ir_ext,w_N,w_H,PortfolioInfo,UCoefp,State,Flag_SS);
[Val_Vhat,Vhat]     =   Fun_Vhat(PP,SS,T,Profit,TAU,w_N,w_H,State);

Val                 =   (1-PP.XI)*Val_V+PP.XI*Val_Vhat;

Vbar            =   struct('Val',Val,...
                           'Policy',struct('V',V.Policy,'Vhat',Vhat.Policy));
if Flag_SS
    Vbar.FlowVec    =   (1-PP.XI)*V.FlowVec+PP.XI*Val_Vhat;
    Vbar.CoefMat    =   (1-PP.XI)*V.CoefMat;
end
